home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / QuickDraw 3D / Development / Interfaces / QD3DPascalInterfaces / QD3DString.p < prev    next >
Encoding:
Text File  |  1996-11-15  |  1.8 KB  |  70 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        QD3DString.p
  3.  
  4.      Version:    Technology:    Quickdraw 3D 1.0.6
  5.                  Release:    Universal Interfaces 2.1.5d1
  6.  
  7.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  8.  
  9.      Bugs?:        If you find a problem with this file, send the file and version
  10.                  information (from above) and the problem description to:
  11.  
  12.                      Internet:    apple.bugs@applelink.apple.com
  13.                      AppleLink:    APPLE.BUGS
  14.  
  15. }
  16. {$IFC UNDEFINED UsingIncludes}
  17. {$SETC UsingIncludes := 0}
  18. {$ENDC}
  19.  
  20. {$IFC NOT UsingIncludes}
  21.  UNIT QD3DString;
  22.  INTERFACE
  23. {$ENDC}
  24.  
  25. {$IFC UNDEFINED __QD3DSTRING__}
  26. {$SETC __QD3DSTRING__ := 1}
  27.  
  28. {$I+}
  29. {$SETC QD3DStringIncludes := UsingIncludes}
  30. {$SETC UsingIncludes := 1}
  31.  
  32. {$IFC UNDEFINED __QD3D__}
  33. {$I QD3D.p}
  34. {$ENDC}
  35.  
  36. {$PUSH}
  37. {$ALIGN POWER}
  38. {$LibExport+}
  39.  
  40. {
  41. *****************************************************************************
  42.  **                                                                             **
  43.  **                                String Routines                                 **
  44.  **                                                                             **
  45.  ****************************************************************************
  46. }
  47. FUNCTION Q3String_GetType(stringObj: TQ3StringObject): TQ3ObjectType; C;
  48. {
  49. *****************************************************************************
  50.  **                                                                             **
  51.  **                        C String Routines                                     **
  52.  **                                                                             **
  53.  ****************************************************************************
  54. }
  55. FUNCTION Q3CString_New(str: ConstCStringPtr): TQ3StringObject; C;
  56. FUNCTION Q3CString_GetLength(stringObj: TQ3StringObject; VAR length: LONGINT): TQ3Status; C;
  57. FUNCTION Q3CString_SetString(stringObj: TQ3StringObject; str: ConstCStringPtr): TQ3Status; C;
  58. FUNCTION Q3CString_GetString(stringObj: TQ3StringObject; VAR str: CStringPtr): TQ3Status; C;
  59. FUNCTION Q3CString_EmptyData(VAR str: CStringPtr): TQ3Status; C;
  60. {$ALIGN RESET}
  61. {$POP}
  62.  
  63. {$SETC UsingIncludes := QD3DStringIncludes}
  64.  
  65. {$ENDC} {__QD3DSTRING__}
  66.  
  67. {$IFC NOT UsingIncludes}
  68.  END.
  69. {$ENDC}
  70.